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**F LE®*1D**MTHCONJG 
MM MM OTTTTTTTTTT HH HH cccccccc 000000 NN NN JJ GGGGGGGG 
MM MM TTTTTTTTTT HH HH ccccccce 000000 NN NN JJ GGGGGGGG 
MMMM MMMM TT HH HH CC 00 NN NN JJ GG 
MMMM MMMM TT HH HH CC 00 00 NN NN JJ GG 
4M 66MM MM TT HH HH CC 00 00 NNNN NN JJ GG 
i TT HH HH (CC 90 00 NNNN JJ GG 
MM MM TT HHHHHHHHHH = CC 00 00 NN NN NN JJ GG 
4M MM TT HHHHHHHHHH = CC 00 00 NN JJ GG 
MM MM TT HH HH CC 00 00 NN NNNN JJ GG GG6GG6GG 
MM MM TT HH HH CC 00 00 NN JJ JJ GG 666666 
MM MM TT HH HH CC 00 00 NN NN JJ JJ GG GG 
MM MM TT HH HH CC 00 00 NN NN JJ JJ GG GG 
MM MM TT HH H cccccccc 000000 NN NN JJJJJJ GGGGGG 
MM MM TT HH HH cccccccc 000000 NN NN JJJJJJ GGGGGG 
LL III! SSSSSSSS 
LL HII! SSSSSSSS 
LL I] SS 
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MODIFIED BY: 


1 “TRTLS MINS ONIG - COMPLEX CONJUGATE 
5 * IDENT 1-0 3; File: MTHCONJG.MAR 
4; 
09 5 3 PPARAAAAAAAAAALALLLAELALLSL ALLELE EEE EEE CESSES CSSA TCC SEES CEST ICEL Saas 
3* e 
§ 3* cpere tent (c) 1978, 1980, 1982, 1984 B * 
99 3* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
, :* ALL RIGHTS RESERVED * 
b4 ® 
80 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sonics * 
98 \¢ 7* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
15 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE 0 OTHER * 
B008 14 :* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
9006 1 3* TRANSFERRED. * 
7* e 
0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 Y ? CORPORATION. * 
Z & 
0000 ¢ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
44 Z :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. a 
3 oe 
0000 5 3 * 
0000 § FARRAR A ER AA AEE E EAHA EAA AAA AAA EAA RAAEAAAAAAAEEAEA AERA AE AREAS 
0000 3 
0000 8 ; 
0000 9; FACILITY: MATH LIBRARY 
0000 0 ;+ 
0000 12 ABSTRACT: 
0000 § : This module contains routine MTHSCONJG: 
44 3 Return complex conjugate. 
000 4; 
0000 5; 
0000 $ i-- 
0000 Sf: 
44 Hy 3; VERSION: 0 
000 9; 
0000 40 ; HISTORY: 
3808 41; 
000 4g 3 AUTHOR 
0000 rt : 
$000 45 ; 
0000 $ 3 
44 47 ; 
000 48 ; 
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for Version 0 of MTHSCONJG 


= Remove FORSFLAG_JACKET. TNH 26-July-78 
1 = Update version number and copyright notice. 
2 = Add "'_"’ to the PSECT directive. JBS 2%-DEC-78 


Red 
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MTHCONJG.MAR; 1 
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MTHSCONJG PLEX 16-SEP-1984 01:10:59 VAX/VMS Macro V04-00 Page MT 
St OOS RATI atts Pi 94359:32 EMTHRTL. SRESATHCONIG.MAR: 1 ° (3) i 
39 ~SBTTL DECLARATIONS 
61; 
6¢ : INCLUDE FILES: 
65; oerr.mar 
0 64 ; 
00 65 
00 66 : 
000 67 ; EXTERNAL SYMBOLS: 
0000 68: NONE 
2093 $9 ; 
$00 
900 72 : MACROS: 
000 ee NONE 
0000 74: 
0000 ©4675 
0000 76; 
0000 77 ; PSECT DECLARATIONS: 
00000000 28 .PSECT _MTKSCODE PIC, SHR, EXE, NOWRT, LONG 
000 80 ; 


t EQUATED SYMBOLS: 
$ NONE 


OWN STORAGE: 
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MTHSCONJG = return COMPLEX conjugate 6-SEP=1984 11:21:15 CMTHRTL.SRCIMTHCONJG.MAR; 1 
-SBTTL MTHSCONJG = return COMPLEX conjugate 


p++ 
Q 3 FUNCTIONAL DESCRIPTION: 

Returns the conples conjugate of COMPLEX*8 number (r,i). 
Result is (r,-i). 


CALLING SEQUENCE: 
Complex_conjugate.wfc.v =MTHSCONJG (complex_arg.rfc.r) 


INPUT PARAMETERS: 
The input parameter is a FORTRAN COMPLEX*8 value and is a 
call-by-reference. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Reserved Operand exception can occur. 
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-ENTRY MTHSCONJG, “M<> 

MOVL 4(AP), R1 ; R1 => COMPLEX parameter 
MOVE (R1)+, RO ; RO = real part 

MNEGF (R11), R1 ; R1 = = imag part 

RET 

- END 
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MTHSCONJG 00000000 RG 01 
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! Psect synopsis ! 


dort ene nemo en seme $ 


PSECT name Allocation PSECT No. Attributes 


- ABS, 0000000 < 3-3 9 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
-MTHSCODE 0900000 ¢ 13.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
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; Performance indicators ! 


eee oe ae Be ee eH 


Phase Page faults CPU Time Elapsed Time 


Initialization $2 
Command processing 134 


Pass 1 
—— table sort 


ass 
Symbol table output 

Psect synopsis output 
Cross-reference output 
Assembler run totals 270 


The working set Limit was 750 pages. 
1293 bytes (3 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space allocated to hold 1 non-local and 0 local symbols. 


135 source Lines were read in Pass 1, producing 10 object records in Pass 2. 
0 pages of virtual memory were used to define 0 macros. 


: 

pewoww ww ee wooo ee woe weeeoone + 
Macro Library name Macros defined 
“S255SDUAZ8:(SYSLIBISTARLET.MLBs2 SS o- 
0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 
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